home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / ObjIntf.mod < prev    next >
Encoding:
Text File  |  1995-08-07  |  1.0 KB  |  45 lines  |  [TEXT/MPS ]
  1. (*
  2.     File:        ObjIntf.mod
  3.  
  4.     Copyright:    © 1983-1993 by Apple Computer, Inc.
  5.                 All rights reserved.
  6.  
  7.     Version:    System 7.1 for ETO #11
  8.     Created:    Tuesday, March 30, 1993 18:00
  9.  
  10. *)
  11.  
  12. (*$TAGS-*)
  13. (*$CALLING PASCAL*)
  14. MODULE ObjIntf;
  15.  
  16. IMPORT SYSTEM;
  17.  
  18. TYPE
  19.     TObject* = POINTER TO TObjectRec;
  20.     TObjectRec* = RECORD END;
  21.  
  22. PROCEDURE (obj:TObject) ShallowClone*(): TObject;
  23.     EXTERNAL; (*••*)
  24.     (*Lowest level method for copying an object; should not be overridden
  25.         except in very unusual cases.  Simply calls HandToHand to copy
  26.         the object data.*)
  27.  
  28. PROCEDURE (obj:TObject) Clone*(): TObject;
  29.     EXTERNAL; (*••*)
  30.     (*Defaults to calling ShallowClone; can be overridden to copy objects
  31.         refered to by fields.*)
  32.  
  33. PROCEDURE (obj:TObject) ShallowFree*;
  34.     EXTERNAL; (*••*)
  35.     (*Lowest level method for freeing an object; should not be overridden
  36.         except in very unusual cases.  Simply calls DisposHandle to
  37.         free the object data.*)
  38.  
  39. PROCEDURE (obj:TObject) Free*;
  40.     EXTERNAL; (*••*)
  41.     (*Defaults to calling ShallowFree; can be overridden to free objects 
  42.         refered to by fields.*)
  43.  
  44.  END ObjIntf.
  45.